home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / ghostbbs.zip / CONVTIDS.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-20  |  5KB  |  184 lines
  1. program covertidsbbbs;
  2. { converts ids.bbs file from version 2.1 to 3.0 }
  3. type
  4.   str2      = string[2];
  5.   name      = string[14];
  6.   longname  = string[25];
  7.   person    = string[27];
  8.   str10     = string[10];
  9.   long      = string[150];
  10.   newsysid  = record  {what the new record looks like}
  11.                 user: person;                   { handle }
  12.                 user2:longname;                 {real name}
  13.                 addr :longname;                 {street address}
  14.                 city :longname;                 {city}
  15.                 szip :longname;                 {state & zip }
  16.                 phnn :name;                     {phone number}
  17.                 exfl: byte;                     {EXPERT USER}
  18.                 lsto: name;                     {LAST TIME ON}
  19.                intlg: name;                     {date first logged on}
  20.                 dld : integer;                  { # of downloads }
  21.                 uld : integer;                  { # of uploads }
  22.                 mptd: integer;                  { # of messages posted }
  23.                 lgdn: integer;                  { # of logons }
  24.                 lstm: array[1..20] of integer;  {LAST MESSAGE READ}
  25.                 pass: name;                     {PASSWORD}
  26.                  acc: byte;                     {ACCESS LEVEL}
  27.                speca: byte;                     {special access}
  28.                 clr:  name;                     {CLEAR SCREEN CHARATERS}
  29.                 bsp:  char;                     {BACKSPACE CHAR}
  30.                 lnf:  char;                     {LINEFEED CHAR}
  31.                 upc:  boolean;                  {UPPER CASE ONLY}
  32.                 wid:  byte;                     {SCREEN WIDTH}
  33.                 tdt:  byte;                     {today's date}
  34.                 tmo:  byte;                     {last month on}
  35.                 tyr:  byte;                     {last year on}
  36.                 tto:  byte;                     {min on today}
  37.               end;
  38.   oldsysid = record {what the old sysid looks like}
  39.                 user: person;                   { handle }
  40.                 user2:longname;                 {real name}
  41.                 addr :longname;                 {street address}
  42.                 city :longname;                 {city}
  43.                 szip :longname;                 {state & zip }
  44.                 phnn :name;                     {phone number}
  45.                 exfl: byte;                     {EXPERT USER}
  46.                 lsto: name;                     {LAST TIME ON}
  47.                intlg: name;                     {date first logged on}
  48.                 dld : byte;                     { # of downloads }
  49.                 uld : byte;                     { # of uploads }
  50.                 mptd: byte;                     { # of messages posted }
  51.                 lgdn: byte;                     { # of logons }
  52.                 lstm: array[1..20] of integer;  {LAST MESSAGE READ}
  53.                 pass: name;                     {PASSWORD}
  54.                  acc: byte;                     {ACCESS LEVEL}
  55.                speca: byte;                     {special access}
  56.                 clr:  name;                     {CLEAR SCREEN CHARATERS}
  57.                 bsp:  char;                     {BACKSPACE CHAR}
  58.                 lnf:  char;                     {LINEFEED CHAR}
  59.                 upc:  boolean;                  {UPPER CASE ONLY}
  60.                 wid:  byte;                     {SCREEN WIDTH}
  61.                 tdt:  byte;                     {today's date}
  62.                 tto:  byte;                     {min on today}
  63.               end;
  64.  
  65. var
  66.   od : oldsysid;
  67.   nd : newsysid;
  68.   infile : file of oldsysid;
  69.   outfile: file of newsysid;
  70.   x,y,z : integer;
  71. begin
  72.   assign(infile,'IDS.BBS');
  73.   reset(infile);
  74.   x := filesize(infile);
  75.   assign(outfile,'NEWIDS.BBS');
  76.   rewrite(outfile);
  77.   for y := 0 to x-1 do
  78.     begin
  79.       seek(infile,y);
  80.       read(infile,od);
  81.       nd.user    :=  od.user;
  82.       nd.user2   :=  od.user2;
  83.       nd.addr    :=  od.addr;
  84.       nd.city    :=  od.city;
  85.       nd.szip    :=  od.szip;
  86.       nd.phnn    :=  od.phnn;
  87.       nd.exfl    :=  od.exfl;
  88.       nd.lsto    :=  od.lsto;
  89.       nd.intlg   :=  od.intlg;
  90.       nd.dld     :=  od.dld;
  91.       nd.uld     :=  od.uld;
  92.       nd.mptd    :=  od.mptd;
  93.       nd.lgdn    :=  od.lgdn;
  94.       for z := 1 to 20 do
  95.         nd.lstm[z]    :=  od.lstm[z];
  96.       nd.pass    :=  od.pass;
  97.       nd.acc     :=  od.acc;
  98.       nd.speca   :=  od.speca;
  99.       nd.clr     :=  od.clr;
  100.       nd.bsp     :=  od.bsp;
  101.       nd.lnf     :=  od.lnf;
  102.       nd.upc     :=  od.upc;
  103.       nd.wid     :=  od.wid;
  104.       nd.tdt     :=  od.tdt;
  105.       nd.tto     :=  od.tto;
  106.       nd.tyr     :=  80;
  107.       nd.tmo     :=  1;
  108.  
  109.       seek(outfile,y);
  110.       write(outfile,nd);
  111.     end;
  112.     close(infile);
  113.     close(outfile);
  114. end.
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.